//DBASXSBF JOB (LASDBP,3B42),'BATCH FILEAID IM13  ',
//         CLASS=X,
//         MSGCLASS=Y,
//         NOTIFY=DBASXS
//JESWTR OUTPUT JESDS=ALL,DEST=LOCAL,DEFAULT=YES
//LCL    OUTPUT DEST=AHIPC1K.U010,COPIES=01
//********************************************************************
//*              JCL GENERATED FROM FILE-AID V6.2.2                  *
//********************************************************************
//JS010    EXEC PGM=FILEAID
//*
//SYSUDUMP DD  SYSOUT=*
//SYSPRINT DD  SYSOUT=* OUTPUT=*.LCL              OUTPUT INFORMATION
//SYSLIST  DD  SYSOUT=*
//SYSTOTAL DD  SYSOUT=*
//DD01     DD  DSN=PCPDM.DB5SC.SCHEDULE,          DATASET TO SCAN
//             DISP=SHR
//DD01O    DD  DSN=DBAMJC.SCHEDULE,               OUTPUT DATASET
//             DISP=SHR
//*
//*  USE 'LIST' IF YOU WANT THE OUTPUT WRITTEN TO SYSPRINT
//*  USE 'COPY' IF YOU WANT ANY MATCHING MEMBERS WRITTEN TO DD01O
//SYSIN    DD  *                                  CONTROL CARDS
$$DD01  DROP    IF=(1,EQ,C'T')
/*
//*
//JS020    EXEC PGM=FILEAID
//*
//SYSUDUMP DD  SYSOUT=*
//SYSPRINT DD  SYSOUT=* OUTPUT=*.LCL              OUTPUT INFORMATION
//SYSLIST  DD  SYSOUT=*
//SYSTOTAL DD  SYSOUT=*
//DD01     DD  DSN=DBAMJC.SCHEDULE,               DATASET TO SCAN
//             DISP=SHR
//DD01O    DD  DSN=DBAMJC.SCHEDUL2,               OUTPUT DATASET
//             DISP=SHR
//*
//*  USE 'LIST' IF YOU WANT THE OUTPUT WRITTEN TO SYSPRINT
//*  USE 'COPY' IF YOU WANT ANY MATCHING MEMBERS WRITTEN TO DD01O
//SYSIN    DD  *                                  CONTROL CARDS
$$DD01  COPYALL IF=(1,EQ,C'Z'),
                REPLALL=(10,18,18C' ',C'PCPDM.DB5SC.DOCLIB')
/*